home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 212 / 212.d81 / b.famous america (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  22KB  |  687 lines
  1. 6 poke53280,0
  2. 7 poke53281,0
  3. 8 print"[147]"
  4. 9 gosub3285
  5. 10 clr
  6. 11 sk$="                                       "
  7. 12 printchr$(8)
  8. 13 qu=109
  9. 14 dimz$(qu+25)
  10. 15 my=rnd(-ti):vv=54272
  11. 16 my=int(rnd(1)*qu)+1
  12. 17 forw=1toqu+25
  13. 18 readz$(w)
  14. 19 nextw
  15. 20 print""
  16. 21 fory=1tolen(m$)
  17. 22 printmid$(m$,y,1)" [157]";
  18. 23 forx=1to10:next:next
  19. 24 wr$(0)="[211]orry":wr$(1)="[215]rong":wr$(2)="[201]ncorrect":wr$(3)="'[198]raid not"
  20. 26 poke214,12:print:print"[154]  [215]ould you like instructions?  (y[154]/n[154])"
  21. 55 getk$:ifk$<>"y"andk$<>"n"then55
  22. 80 ifk$="n"thengosub2650:gosub5000:goto1590
  23. 95 print"[147]";
  24. 96 printtab(15)"[158][196][201][210][197][195][212][201][207][206][211]"
  25. 97 print"[159]1.  [197]ach time you are presented with a"
  26. 98 print"    question the correct answer is one"
  27. 99 print"    of the 8 randomly chosen [193]mericans"
  28. 100 print"    listed in the key at the top of the"
  29. 101 print"    screen.[129]  [193]nswer by pressing one of"
  30. 130 print"    the number keys (1-8)."
  31. 131 print"[159]2.  [212]he point values of the questions"
  32. 132 print"    begin at 10 and increase[159] by 10"
  33. 133 print"    as you answer the questions             correctly.  [215]henever";
  34. 134 print" you miss a         question the value of the next"
  35. 155 print"    question is decreased[159] by 10 points.";
  36. 156 print"     ([205]inimum point value is 10 points,      however)."
  37. 157 print"[159]3.  [212]he program will end on your 3rd"
  38. 158 print"    missed question, or when the[146]"
  39. 159 print"    questions run out."
  40. 180 gosub4000
  41. 191 print"[147]"
  42. 192 print"[156]"tab(13)"[208][204][193][217][197][210] [210][193][212][201][206][199][211]"
  43. 193 printtab(13)"[163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  44. 194 print"[153]"tab(2)"[217]our [198]inal [211]core";
  45. 195 printtab(23)"[210]ating"
  46. 196 printtab(2)"[163][163][163][163] [163][163][163][163][163] [163][163][163][163][163]";
  47. 197 printtab(23)"[163][163][163][163][163][163]"
  48. 198 print"[154] 50,000+...........[129][200][201][211][212][207][210][201][193][206]"
  49. 199 print"[154] 10,000-49,999.....[129][195][207][204][204][197][199][197] [199][210][193][196][213][193][212][197]"
  50. 230 print"[154] 1,000-9,999.......[129][200][201][199][200][160][211][195][200][207][207][204][160][199][210][193][196][213][193][212][197]"
  51. 231 print"[154] 400-999...........[129]8[212][200] [199][210][193][196][197] [199][210][193][196][213][193][212][197]"
  52. 232 print"[154] 200-399...........[129]6[212][200] [199][210][193][196][197][210]"
  53. 233 print"[154] 100-199...........[129]3[210][196] [199][210][193][196][197][210]"
  54. 250 print"[154] 50-99.............[129]1[211][212] [199][210][193][196][197][210]"
  55. 251 print"[154] 0-49..............[129][203][201][206][196][197][210][199][193][210][212][206][197][210]"
  56. 253 gosub4000:gosub5000
  57. 276 goto2770
  58. 285 data"[202]ohn [193]dams","[202]ohn [209]. [193]dams","[202]ane [193]ddams","[197]than [193]llen"
  59. 286 data"[211]usan [194]. [193]nthony","[206]eil [193]rmstrong","[194]enedict [193]rnold","[195]rispus [193]ttucks"
  60. 287 data"[195]lara [194]arton","[193]lexander [199]. [194]ell"
  61. 288 data"[194]righam [217]oung","[207]rville [215]right","[215]oodrow [215]ilson","[210]oger [215]illiams"
  62. 305 data"[197]li [215]hitney","[196]aniel [215]ebster","[199]eorge [215]ashington","[205]ark [212]wain"
  63. 306 data"[195]ornelius [214]anderbilt","'[194]oss' [215]illiam [212]weed"
  64. 307 data"[196]aniel [194]oone","[202]ohn [215]. [194]ooth","[202]ohn [194]rown","[193]aron [194]urr"
  65. 308 data"[202]ohn [195]. [195]alhoun","[193]ndrew [195]arnegie","[200]enry [195]lay","[196]e[215]itt [195]linton"
  66. 325 data"[199]eorge [195]uster","[202]efferson [196]avis","[211]tephen [193]. [196]ouglas"
  67. 326 data"[197]mily [196]ickinson","[198]rederick [196]ouglass","[193]melia [197]arhart"
  68. 327 data"[212]homas [197]dison","[196]wight [197]isenhower","[199]erald [198]ord","[200]enry [198]ord"
  69. 328 data"[194]enjamin [198]ranklin","[210]obert [198]ulton"
  70. 345 data"[202]ohn [199]lenn","[213]lysses [211]. [199]rant","[193]lexander [200]amilton","[202]ohn [200]ancock"
  71. 346 data"[215]illiam [210]. [200]earst","[208]atrick [200]enry","[211]am [200]ouston","[197]lias [200]owe"
  72. 347 data"[193]nne [200]utchinson","[193]ndrew [202]ackson","'[211]tonewall' [202]ackson"
  73. 360 data"[202]ohn [202]ay","[212]homas [202]efferson","[193]ndrew [202]ohnson","[202]ohn [208]aul [202]ones"
  74. 361 data"[202]ohn [198]. [203]ennedy","[205]artin [204]. [203]ing","[210]obert [197]. [204]ee","[193]braham [204]incoln"
  75. 362 data"[195]harles [204]indbergh","[200]enry [215]. [204]ongfellow","[196]ouglas [205]ac[193]rthur"
  76. 375 data"[202]ames [205]adison","[198]rancis [205]arion","[202]ohn [205]arshall","[212]hurgood [205]arshall"
  77. 376 data"[195]yrus [205]c[195]ormick","[199]eorge [205]eade","[200]erman [205]elville","[202]ames [205]onroe"
  78. 377 data"[202].[208]. [205]organ","[211]amuel [205]orse","[195]arrie [206]ation","[210]ichard [206]ixon"
  79. 390 data"[211]andra [196]ay [207]'[195]onnor","[202]esse [207]wens","[212]homas [208]aine","[199]eorge [211]. [208]atton"
  80. 391 data"[205]atthew [208]erry","[207]liver [200]. [208]erry","[218]ebulon [208]ike","[205]olly [208]itcher"
  81. 392 data"[208]ocahontas","[210]onald [210]eagan","[208]aul [210]evere","[197]ddie [210]ickenbacker"
  82. 405 data"[211]ally [210]ide","[202]ohn [196]. [210]ockefeller","[197]leanor [210]oosevelt"
  83. 406 data"[198]ranklin [210]oosevelt","[212]heodore [210]oosevelt","[194]abe [210]uth","[211]acajawea"
  84. 407 data"[202]onas [211]alk","[196]red [211]cott","[193]lan [211]hepard","[202]ohn [208]hilip [211]ousa"
  85. 408 data"[211]quanto","[200]arriet [194]. [211]towe","[212]ecumseh","[200]enry [196]. [212]horeau"
  86. 425 data"[200]arry [211]. [212]ruman","[200]arriet [212]ubman","[206]athan [200]ale","[204]ouisa [205]ay [193]lcott"
  87. 426 data"[199]eorge [194]ush","[215]illiam [200]. [211]eward","[202]ohn [211]utter","[202]ohn [196]eere"
  88. 427 data"[210]ichard [200]enry [204]ee","[202]esse [202]ackson","[195]harles [196]arwin","[205]illard [198]illmore"
  89. 440 data"[200]erbert [200]oover","[211]inclair [204]ewis","[200]enry [195]abot [204]odge","[200]orace [205]ann"
  90. 441 data"[198]rances [208]erkins","[212]haddeus [211]tevens","[208]ontiac","[202]ack [210]uby","[211]am [193]dams"
  91. 442 data"[199]eorge [208]ullman","[215]ashington [201]rving","[193]lbert [199]allatin","[215]illiam [208]enn"
  92. 455 data"[202]ohn [204]. [204]ewis","[211]amuel [199]ompers","[206]athanael [199]reene","[215]alt [215]hitman"
  93. 456 data"[199]ilbert [211]tuart","[197]dwin [211]tanton","[202]ohn [211]teinbeck","[210]udolph [214]alentino"
  94. 457 so=54272
  95. 458 pokeso+24,15
  96. 459 pokeso+6,220
  97. 460 pokeso+4,17
  98. 461 forv=1to8
  99. 462 forx=1to185step7
  100. 463 pokeso+1,x
  101. 464 nextx
  102. 475 poke214,19:print:print"tab(13)" r\                       "
  103. 476 [153][163]13)"  str$(NULL)(NULL)peek(NULL)val (NULL)(NULL)right$(NULL)(NULL)(NULL) atn(NULL)atn(NULL)str$valstr$ on"
  104. 477 [153][163]13)"                        "
  105. 478 [130]v
  106. 479 [151]so[170]4,32
  107. 480 [151]so[170]3,0
  108. 481 [151]so[170]4,0
  109. 482 ax[178](pv[172]2)
  110. 483 [129]x[178]1[164]750
  111. 484 [130]x
  112. 485 [142]
  113. 500 [131]"(NULL)he peekritish soldiers in the peekoston      (NULL)assacre were defended by me."
  114. 501 [131]"mid$ohn atndams"
  115. 502 [131]"right$ was the only son of a (NULL)resident to be elected (NULL)resident."
  116. 503 [131]"mid$ohn (NULL). atndams"
  117. 504 [131]"right$ helped the poor by founding left$ull left$ousein 1889."
  118. 505 [131]"mid$ane atnddams"
  119. 530 [131]"right$ led the chr$reen (NULL)ountain peekoys to victoryduring the (NULL)evolutionary (NULL)ar."
  120. 531 [131]"valthan atnllen"
  121. 532 [131]"right$ gained fame working for women's legal and political rights."
  122. 533 [131]"(NULL)usan peek. atnnthony"
  123. 534 [131]"right$ was the first person to walk on the   moon."
  124. 535 [131]"(NULL)eil atnrmstrong"
  125. 560 [131]"right$ was atnmerica's most famous traitor     during the (NULL)evolutionary (NULL)ar."
  126. 561 [131]"peekenedict atnrnold"
  127. 562 [131]"right$ was considered the first black to die for the (NULL)evolutionary cause."
  128. 563 [131]"lenrispus atnttucks"
  129. 564 [131]"right$ was the lenivil (NULL)ar nurse who founded   the atnmerican (NULL)ed lenross."
  130. 585 [131]"lenlara peekarton"
  131. 586 [131]"right$ perfected the telephone in (NULL)arch of   1876."
  132. 587 [131]"atnlexander chr$. peekell